home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Amiga Public Domain Connection / APDC Disk #025 - Programming Languages (198x)(Amiga Public Domain Connection)(US)[m][WB].zip / APDC Disk #025 - Programming Languages (198x)(Amiga Public Domain Connection)(US)[m][WB].adf / Modula-2 / m2 / SimpleSprites.DEF < prev    next >
Text File  |  1988-03-15  |  1KB  |  37 lines
  1. (********************************************************************************
  2.  
  3. Name         : SimpleSprites.DEF
  4. Version      : 1.0
  5. Purpose      : Interface to hardware sprites
  6. Author       : ms
  7. Modified     : 2.4.86  15:35  ms
  8.  
  9. ********************************************************************************)
  10.  
  11. DEFINITION MODULE SimpleSprites;
  12.  
  13. FROM SYSTEM IMPORT ADDRESS;
  14.  
  15. CONST anySprite    = -1;
  16. TYPE  SpriteImage  = RECORD
  17.                        posctl: ARRAY [0..1] OF CARDINAL;
  18.                        data: ARRAY [0..31 (* SimpleSprite.height *)] OF LONGCARD;
  19.                        (* last long word set to FFFF FFFFH ! *)
  20.                      END;
  21.       SimpleSprite = RECORD
  22.                        posctldata: ADDRESS;
  23.                        height: CARDINAL;
  24.                        x, y: CARDINAL; (* current position *)
  25.                        num: CARDINAL;
  26.                      END;
  27.  
  28. PROCEDURE GetSprite(VAR sp: SimpleSprite; pick: CARDINAL): LONGINT;
  29.  
  30. PROCEDURE ChangeSprite(vp: ADDRESS; VAR s: SimpleSprite; VAR data: SpriteImage);
  31.  
  32. PROCEDURE MoveSprite(vp: ADDRESS; VAR s: SimpleSprite; x, y: LONGINT);
  33.  
  34. PROCEDURE FreeSprite(pick: CARDINAL);
  35.  
  36. END SimpleSprites.
  37.